-- background: 6538 from stack: in.05
-- bmap block id: 7120
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
function otherCheck
if hilite of bkgnd button "Other"
then put true into otherRange
else put false into otherRange
return otherRange
end otherCheck

function rangeCheck
if bkgnd field "Scan Rate" >= 0 and bkgnd field "Scan Rate" <= 30
then put true into inRange
else
  put false into inRange
  beep 2
end if
return inRange
end rangeCheck

function noGroup
global A,B,C,D
if not A and not B and not C and not D then
  put true into zip
  beep 2
else put false into zip
return zip
end noGroup




-- part 1 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=20 top=77 right=99 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: groupA
----- HyperTalk script -----
on mouseUp

  --FlashStack Ready

  global A
  if hilite of bkgnd button "groupA" then
    put true into A
  else
    put false into A
  end if
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=20 top=98 right=122 bottom=374
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: groupB
----- HyperTalk script -----
on mouseUp
  global B
  if hilite of bkgnd button "groupB" then
    put true into B
  else
    put false into B
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=20 top=121 right=143 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: groupC
----- HyperTalk script -----
on mouseUp

  --FlashStack
  global C
  if hilite of bkgnd button "groupC" then
    put true into C
  else
    put false into C
  end if
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=20 top=142 right=164 bottom=120
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: groupD
----- HyperTalk script -----
on mouseUp

  --FlashStack Ready
  global D
  if hilite of bkgnd button "groupD" then
    put true into D
  else
    put false into D
  end if
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=22 top=189 right=211 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Slow
----- HyperTalk script -----
on mouseUp
  global scanRate
  put 5 into scanRate
  if not hilite of bkgnd button "Slow" then
    set hilite of bkgnd button "slow" to true
  end if
  set hilite of background button "Fast" to false
  set hilite of background button "Medium" to false
  set hilite of background button "Other" to false
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=22 top=210 right=232 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Medium
----- HyperTalk script -----
on mouseUp
  global scanRate
  put 3 into scanRate
  if not hilite of bkgnd button "Medium" then
    set hilite of bkgnd button "Medium" to true
  end if
  set hilite of bkgnd button "Slow" to false
  set hilite of bkgnd button "Fast" to false
  set hilite of bkgnd button "Other" to false
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=22 top=231 right=253 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fast
----- HyperTalk script -----

on mouseUp
  global scanRate
  put 1 into scanRate
  if not hilite of bkgnd button "Fast" then
    set hilite of bkgnd button "Fast" to true
  end if
  set hilite of bkgnd button "Slow" to false
  set hilite of bkgnd button "Medium" to false
  set hilite of bkgnd button "Other" to false
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=120 top=189 right=211 bottom=177
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other
----- HyperTalk script -----
on mouseUp
  global scanRate
  if not hilite of bkgnd button "Other" then
    set hilite of bkgnd button "Other" to true
  end if
  set hilite of bkgnd button "Slow" to false
  set hilite of bkgnd button "Medium" to false
  set hilite of bkgnd button "Fast" to false
  put 0 into bkgnd field 1
  type tab
  put bkgnd field 1 into scanRate
end mouseUp



-- part 9 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=179 top=191 right=209 bottom=220
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan Rate


-- part 10 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=433 top=268 right=335 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Words
----- HyperTalk script -----
on mouseUp
  --FlashStack Version
  global A,B,C,D,minA,minB,minC,minD,scanRate,offset

  if not otherCheck() then
    if noGroup()
    then answer "You Must Choose At Least One Word Group" with "OK"
  else go card (firstGroup() + offset)
else
  if not rangeCheck() then
    answer "ScanRate must be between 0 and 30 secs" with "OK"
    click at the loc of background button "Other"
    type tab
  else
    if noGroup()
    then answer "You Must Choose At Least One Word Group" with "OK"
  else go card (firstGroup() + offset)
end if
end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=259 top=191 right=211 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Show Answers
----- HyperTalk script -----
on mouseUp
  global delayTime,showAnswers,offSet

  if not hilite of bkgnd button "Show Answers" then
    set hilite of bkgnd button "Show Answers" to true
  end if
  set hilite of background button "Hide Answers" to false
  put true into showAnswers
  set lockScreen to true
  go card (offSet + 1)
  show bkgnd field "Translation"
  show bkgnd field "Source"

  go card ID 6699
  set lockScreen to false

end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=259 top=211 right=231 bottom=376
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Hide Answers
----- HyperTalk script -----
on mouseUp
  global delayTime,reverse,offSet,showAnswers

  if not hilite of bkgnd button "Hide Answers" then
    set hilite of bkgnd button "HIde Answers" to true
  end if
  set hilite of background button "Show Answers" to false
  set lockScreen to true
  put false into showAnswers
  go card (offSet + 1)
  if not reverse then
    hide bkgnd field "Translation"
  else
    hide bkgnd field "Source"
  end if

  go card ID 6699
  set lockScreen to false
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=206 top=306 right=328 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Reverse Lists
----- HyperTalk script -----
on mouseUp
  global reverse,offSet,showAnswers

  if hilite of bkgnd button "Reverse Lists" then
    put true into reverse
  else
    put false into reverse
  end if
  if not showAnswers then
    set lockscreen to true
    go card (offSet + 1)
    if not reverse then
      hide bkgnd field "Translation"
      show bkgnd field "Source"
    else
      hide bkgnd field "Source"
      show bkgnd field "Translation"
    end if
    go back
    set lockscreen to false
  end if
end mouseUp





-- part 22 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=206 top=288 right=307 bottom=323
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Delay Answers
----- HyperTalk script -----
on mouseUp
  global scanRate,delayTime,showAnswers

  if hilite of bkgnd button "Delay Answers" then
    put true into delayTime
  else
    put false into delayTime
  end if

end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=206 top=267 right=289 bottom=335
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scan Backwards
----- HyperTalk script -----
on mouseUp
  global ScanReverse
  if hilite of bkgnd button "Scan Backwards" then
    put true into ScanReverse
  else
    put false into ScanReverse
  end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=433 top=126 right=192 bottom=503
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  --FlashStack Ready
  global scanRate,A,B,C,D

  if noGroup()
  then answer "You Must Choose At Least One Word Group" with "OK"
else
  if otherCheck() and not rangeCheck() then
    answer "ScanRate must be between 0 and 30 sces" with "OK"
    click at the loc of background button "Other"
    type tab
  else go card 3
end if
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=433 top=54 right=121 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  --FlashStack Version
  global scanRate,A,B,C,D

  if noGroup()
  then answer "You Must Choose At Least One Word Group" with "OK"
else
  if otherCheck() and not rangeCheck() then
    answer "ScanRate must be between 0 and 30 secs" with "OK"
    click at loc of background button "Other"
    type tab
  else go home
end if
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=433 top=198 right=261 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  --FlashStack Version
  global scanRate,A,B,C,D

  if noGroup()
  then answer "You Must Choose At Least One Word Group" with "OK"
else
  if otherCheck() and not rangeCheck() then
    answer "ScanRate must be between 0 and 30 secs" with "OK"
    click at the loc of background button "Other"
    type tab
  else go back
end if
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: E006
-- rect: left=20 top=288 right=307 bottom=123
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: In Sequence
----- HyperTalk script -----
on mouseUp
  global inOrder
  if not hilite of bkgnd button "In Sequence" then
    set hilite of bkgnd button "In Sequence" to true
  end if
  set hilite of background button "In Random Order" to false
  put true into inOrder

end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: A006
-- rect: left=20 top=308 right=327 bottom=151
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: In Random Order
----- HyperTalk script -----
on mouseUp
  global inOrder

  if not hilite of bkgnd button "In Random Order" then
    set hilite of bkgnd button "In Random Order" to true
  end if
  set hilite of background button "In Sequence" to false
  put false into inOrder


end mouseUp